<div id='wikitext'>
<pre><b> File: <EMPTY> of Disk: Disks/Build-2007/Build-11-03-07</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
TL
00325  7006          RTL
00326  0340          AND ED7400
00327  1711          TAD I EDOCA
00330  3711          DCA I EDOCA     /HIGH ORDER 4 BITS INTO WORD 1
00331  1312          TAD EDI         /GET THE CHAR FROM THE EDI BUFFER
00332  7012          RTR
00333  7012          RTR
00334  7010          RAR             /PUT THE LOW ORDER BITS INTO AC 0-3
00335  0340          AND ED7400
00336  1303          TAD EDOPCH
00337  2311          ISZ EDOCA
00340  7400  ED7400, 7400
00341  3711          DCA I EDOCA     /LOW ORDER 4 BITS INTO WORD 2
00342  5220          JMP EDOEND
00343  0000  EDIGCH, 0
00344  1260          TAD EDOEOF
00345  7650          SNA CLA
00346  5357          JMP ED0BFR      /MAKE SURE BUFFER IS ZEROED
00347  6654          RRFC
00350  0232  EDO232, 232
00351  0336  EDO336, 336             /FALL THROUGH CONSTANTS TO STALL FOR TIME
00352  0177  EDO177, 177
00353  6653  EDTIME, RSKE            /END OF FILE?
00354  5361          JMP EDCHLP
00355  3260          DCA EDOEOF
00356  1350          TAD EDO232      /SEND ^Z TO BUFFER
00357  3312  ED0BFR, DCA EDI
00360  5366          JMP EDIXX       /AND 0 GARBAGE CHARACTER
00361  1374  EDCHLP, TAD EDOTMP
00362  3312          DCA EDI
00363  6651          RSKF
00364  5353          JMP EDTIME      /READER NOT READY - CHECK TIMING
00365  6652          RRRB            /READER READY - READ CHAR
00366  3374  EDIXX,  DCA EDOTMP      /BUFFER READER BY ONE CHARACTER TO ELIMINATE
00367  1312          TAD EDI         /GARBAGE CHARACTER AT END OF TAPE

/EDIT HANDLER                             PAL8-V10A 09-MAR-84 PAGE 1-4

00370  5743          JMP I EDIGCH    /AND RETURN
00371  7330  EDOERR, CLA CLL CML RAR /SIGNAL A &quot;PERMANENT I/O ERROR&quot; ON THE DEVICE
00372  5277          JMP EDOXIT-2

00373  6201  PCDF,   CDF 0
00374  0000  EDOTMP, 0
00375  0000  EDOWC,  0
00376  7775  EDOM3,  -3
             $$$$$$$$

/EDIT HANDLER                             PAL8-V10A 09-MAR-84 PAGE 2

EDCHLP 0361      
EDI    0312      
EDIGCH 0343      
EDILP  0317      
EDIXX  0366      
EDO    0200      
EDOCA  0311      
EDOCDF 0260      
EDOCIF 0231      
EDOEND 0220      
EDOEOF 0260      
EDOERR 0371      
EDOISZ 0273      
EDOKRS 0224      
EDOLP  0203      
EDOM3  0376      
EDOPCH 0303      
EDORTN 0275      
EDOTMP 0374      
EDOWC  0375      
EDOXIT 0301      
EDO177 0352      
EDO232 0350      
EDO336 0351      
EDTIME 0353      
ED0BFR 0357      
ED70   0221      
ED7400 0340      
ED7700 0207      
ESETUP 0234      
PCDF   0373      
PCIE   6667      
PCLF   6662      
PCLP   6666      
PSIE   6665      
PSKE   6663      
PSKF   6661      
PSTB   6664      
PSXX   6660      
RFRB   6656      
RRFC   6654      
RRRB   6652      
RSKE   6653      
RSKF   6651      
VERSIO 0001      



ERRORS DETECTED: 0
LINKS GENERATED: 0


</pre>
<hr/>
</div>